home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr25 / gg243774.zip / RECORD.ZIP / RECORD.SC < prev    next >
Text File  |  1992-04-10  |  5KB  |  177 lines
  1.  
  2. # This file was generated by the SOM Compiler.
  3. # FileName: record.sc.
  4. # Generated using:
  5. #     SOM Precompiler spc: 1.22
  6. #     SOM Emitter emitcsc: 1.10
  7. #include "wptrans.sc"
  8.  
  9. class: Record, 
  10.     file stem = record, external prefix = record_, class prefix = recordcls_, 
  11.     major version = 1, minor version = 1, local;
  12.  
  13.  
  14. parent class: WPTransient;
  15.  
  16.  
  17. release order:
  18.     SetRecordInfo, GetRecordInfo, clsQueryDatabase, 
  19.     clsRestartServer;
  20.  
  21.  
  22. passthru: C.h, after;
  23.  
  24. #define DebugBox(title, text)  WinMessageBox(HWND_DESKTOP,HWND_DESKTOP, \
  25.                                (PSZ) text , (PSZ) title, 0, \
  26.                                MB_OK | MB_INFORMATION )
  27.  
  28. endpassthru;
  29. methods:
  30.  
  31.  
  32.     BOOL    SetRecordInfo(PSZ szData);
  33.  
  34.     -- 
  35.     --  METHOD:   SetRecordInfo                               PUBLIC
  36.     -- 
  37.     --  PURPOSE:  Copy the szData string in to the
  38.     --            Record objects text buffer
  39.     -- 
  40.  
  41.     BOOL    GetRecordInfo(PSZ szData);
  42.  
  43.     -- 
  44.     --  METHOD:   GetRecordInfo                               PUBLIC
  45.     -- 
  46.     --  PURPOSE:  Copy the  Record objects text buffer
  47.     --            in to the szData string
  48.     -- 
  49.  
  50.     BOOL    clsQueryDatabase(PSZ szSearch,
  51.         WPObject *Folder), class;
  52.  
  53.     -- 
  54.     --  METHOD:   clsQueryDatabase                            PUBLIC
  55.     -- 
  56.     --  PURPOSE:  Search the record database for all entries
  57.     --            that match the patern in the search string.
  58.     --            This results in the creation of new objects
  59.     --            in the Folder specified
  60.     -- 
  61.  
  62.     BOOL    clsRestartServer(), class;
  63.  
  64.     -- 
  65.     --  METHOD:   clsRestartServer                            PUBLIC
  66.     -- 
  67.     --  PURPOSE:  Restarts the server program.
  68.     -- 
  69.  
  70.     override wpInitData;
  71.  
  72.     -- 
  73.     --  METHOD:   wpInitData                                  PUBLIC
  74.     -- 
  75.     --  PURPOSE:  Initialise the object memory for
  76.     --            the record text buffer
  77.     -- 
  78.  
  79.     override wpUnInitData;
  80.  
  81.     -- 
  82.     --  METHOD:   wpInitData                                  PUBLIC
  83.     -- 
  84.     --  PURPOSE:  Free the object memory for
  85.     --            the record text buffer
  86.     -- 
  87.  
  88.     override wpModifyPopupMenu;
  89.  
  90.     -- 
  91.     --  METHOD:   wpModifyPopupMenu                           PUBLIC
  92.     -- 
  93.     --  PURPOSE:  Add any new options for the records
  94.     --            context menu
  95.     -- 
  96.  
  97.     override wpMenuItemSelected;
  98.  
  99.     -- 
  100.     --  METHOD:   wpMenuItemSelected                          PUBLIC
  101.     -- 
  102.     --  PURPOSE:  Processing for record objects menu
  103.     -- 
  104.  
  105.     override wpOpen;
  106.  
  107.     -- 
  108.     --  METHOD:   wpOpen                                      PUBLIC
  109.     -- 
  110.     --  PURPOSE:  Open a view of the object ( see also
  111.     --            wpclsQueryDefaultView )
  112.     -- 
  113.  
  114.     override wpSetup;
  115.  
  116.     -- 
  117.     --  METHOD:   wpSetup                                     PUBLIC
  118.     -- 
  119.     --  PURPOSE:  Process the records Setup strings
  120.     -- 
  121.  
  122.     override wpclsInitData, class;
  123.  
  124.     -- 
  125.     --  METHOD:   wpclsInitData                               PUBLIC
  126.     -- 
  127.     --  PURPOSE:  Initialises the Class
  128.     --            This involves :
  129.     --               Initialising class variables
  130.     --               Loading class resources
  131.     --               Starting the IPC requester thread
  132.     --               Registering the Viewing window PM Class
  133.     -- 
  134.  
  135.     override wpclsUnInitData, class;
  136.  
  137.     -- 
  138.     --  METHOD:   wpclsUnInitData                             PUBLIC
  139.     -- 
  140.     --  PURPOSE:  Free Class resources
  141.     -- 
  142.  
  143.     override wpclsQueryTitle, class;
  144.  
  145.     -- 
  146.     --  METHOD:   wpclsQueryTitle                             PUBLIC
  147.     -- 
  148.     --  PURPOSE:  Return the string "Record" as the default
  149.     --            title for new record objects
  150.     -- 
  151.  
  152.     override wpclsQueryIcon, class;
  153.  
  154.     -- 
  155.     --  METHOD:   wpclsQueryIcon                              PUBLIC
  156.     -- 
  157.     --  PURPOSE:  Returns the default record icon pointer.
  158.     -- 
  159.  
  160.     override wpclsQueryDefaultView, class;
  161.  
  162.     -- 
  163.     --  METHOD:   wpclsQueryDefaultView                       PUBLIC
  164.     -- 
  165.     --  PURPOSE:  Returns the default view for a
  166.     --            new instance of the record object.
  167.     -- 
  168.  
  169.     override wpclsFindObjectFirst, class;
  170.  
  171.     -- 
  172.     --  METHOD:   wpclsFindObjects                            PUBLIC
  173.     -- 
  174.     --  PURPOSE:  Shell entry to finding record objects
  175.     -- 
  176.  
  177.